home *** CD-ROM | disk | FTP | other *** search
/ Shocking The Web CD-ROM / SHOCK_CD.ISO / mac / Chapter Tutorials / CaseStudies / ch12.ISN / input.dir / 00070.ls < prev    next >
Encoding:
Text File  |  1996-12-04  |  518 b   |  16 lines
  1. global gHowLongHold
  2.  
  3. on mouseDown
  4.   set whichSprite to the clickOn
  5.   puppetSprite(whichSprite, 1)
  6.   set constraintSprite to whichSprite - 1
  7.   set the constraint of sprite whichSprite to constraintSprite
  8.   set leftOffset to the left of sprite constraintSprite
  9.   repeat while the stillDown
  10.     set the locH of sprite whichSprite to the mouseH
  11.     set gHowLongHold to ((the locH of sprite whichSprite - leftOffset) / 20) + 1
  12.     set the text of field "How Long" to string(gHowLongHold)
  13.     updateStage()
  14.   end repeat
  15. end
  16.